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// Reset slot to the bytes_sent==0 point 
oldoffset = inv_rate * bytes_sent; 
slot = slot - int (old_of f set) ; 

bytessent = bytessent + n; 

if (bytes_sent >= quantum) { 

interval = inv_rate* quantum + fix_up; 
slot = slot + int (interval) ; 

// optional step to dither based on LSBs of interval -- 
// requires interval to have have fractional bits 
slot = slot + randomdither (frac (interval) ) ; 
bytes_sent = bytes_sent - quantum; 
// fall -through to handle left-over part 

} 

// Account for new bytes 

new offset = inv_rate * bytes sent; 

slot = slot + int (newof f set) ; 
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